500
How can I add an extra button to a spin editor

With Grid1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.DefaultItemHeight = 20
	With .Columns.Add("Date").Editor
		.EditType = SpinType
		.AddButton "B1",2,1,"This is a bit of text that's shown when the cursor hovers the button B1"
		.ButtonWidth = 20
	End With
	With .Items
		.AddItem 0
		.AddItem 1
	End With
End With
499
How can I remove or delete the buttons in the editor
With Grid1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Edit").Editor
		.EditType = EditType
		.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
		.AddButton "B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3"
		.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
		.RemoveButton "B1"
		.ButtonWidth = 20
	End With
	With .Items
		.AddItem "Text 1"
		.AddItem "Text 2"
	End With
End With
498
How can I hide the buttons in the editor
With Grid1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.DefaultItemHeight = 24
	With .Columns.Add("Edit").Editor
		.EditType = EditType
		.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
		.AddButton "B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3"
		.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
		.ButtonWidth = 0
	End With
	With .Items
		.AddItem "Text 1"
		.AddItem "Text 2"
	End With
End With
497
How can I change the width of the buttons in the editor

With Grid1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	.DefaultItemHeight = 24
	With .Columns.Add("Edit").Editor
		.EditType = EditType
		.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
		.AddButton "B3",2,1,"This is a bit of text that's shown when the cursor hovers the button B3"
		.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
		.ButtonWidth = 24
	End With
	With .Items
		.AddItem "Text 1"
		.AddItem "Text 2"
	End With
End With
496
How can I add extra buttons to an editor
With Grid1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("Edit").Editor
		.EditType = EditType
		.AddButton "B1",1,0,"This is a bit of text that's shown when the cursor hovers the button B1"
		.AddButton "B2",2,0,"This is a bit of text that's shown when the cursor hovers the button B2"
		.AddButton "B3",3,1,"This is a bit of text that's shown when the cursor hovers the button B3"
		.AddButton "B4",1,1,"This is a bit of text that's shown when the cursor hovers the button B4"
	End With
	With .Items
		.AddItem "Text 1"
		.AddItem "Text 2"
	End With
End With
495
is there any function to specify the number of rows / items being visible in a drop down list editor

With Grid1
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
		.DropDownRows = 1
		.PopupAppearance = FlatApp
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
494
How can I change the border for a drop down editor

With Grid1
	With .Columns.Add("Date").Editor
		.EditType = DateType
		.PopupAppearance = FlatApp
	End With
	.Items.AddItem "Today"
	With .Items
		.CellEditor(.AddItem("Today"),0).EditType = DateType
	End With
End With
493
How can I remove a predefined item in a drop down editor

With Grid1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorListType
		.Option(exColorListShowName) = True
		.RemoveItem 255
	End With
	.Items.AddItem 255
	.Items.AddItem 65280
End With
492
How can I remove or clear all predefined items in a drop down editor

With Grid1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorListType
		.ClearItems 
		.AddItem 255,"Red Color"
	End With
	.Items.AddItem 255
End With
491
How can I center the predefined items in a drop down editor editor

With Grid1
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
		.DropDownAlignment = CenterAlignment
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
490
How can I right align the items in a drop down editor editor

With Grid1
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
		.DropDownAlignment = RightAlignment
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
489
How can I specify the width of the drop down editor

With Grid1
	With .Columns.Add("DropDown").Editor
		.DropDownAutoWidth = exDropDownEditorWidth
		.DropDownMinWidth = 385
		.EditType = ColorListType
	End With
	With .Items
		.AddItem 255
		.AddItem 65280
	End With
End With
488
How can hide the drop down button for an editor

With Grid1
	With .Columns.Add("DropDown").Editor
		.DropDownVisible = False
		.EditType = ColorListType
	End With
	With .Items
		.AddItem 255
		.AddItem 65280
	End With
End With
487
How can assign a tooltip to a drop down list editor
With Grid1
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
		.ItemToolTip(1) = "This is a tooltip that shows when user hovers the <b>first</b> item"
		.ItemToolTip(2) = "This is a tooltip that shows when user hovers the <b>second</b> item"
		.ItemToolTip(3) = "This is a tooltip that shows when user hovers the <b>third</b> item"
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
486
How can I lock, disable make read only an editor

With Grid1
	With .Columns.Add("DropDown").Editor
		.Locked = True
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
485
How can I sort the items in a drop down list editor

With Grid1
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"Second item"
		.AddItem 2,"First item"
		.AddItem 3,"Third item"
		.SortItems True
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
484
How can I expand an item in the tree or a hierarchy of a drop down editor

With Grid1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown")
		.Def(exCellValueFormat) = 1
		With .Editor
			.EditType = DropDownListType
			.DropDownAutoWidth = exDropDownEditorWidth
			.AddItem 1,"<b>CObject</b> class",1
			.InsertItem 2,"<b>CCmdTarget</b> class",2,1
			.InsertItem 3,"<b>CWnd</b> class",3,2
			.InsertItem 6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1
			.AddItem 4,"Exceptions",1
			.InsertItem 7,"<b>System</b> Exceptions",2,4
			.AddItem 5,"File Services",2
			.ExpandItem(1) = True
		End With
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
483
How can I display a tree or a hierarchy in a drop down editor

With Grid1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown")
		.Def(exCellValueFormat) = 1
		With .Editor
			.EditType = DropDownListType
			.DropDownAutoWidth = exDropDownEditorWidth
			.AddItem 1,"<b>CObject</b> class",1
			.InsertItem 2,"<b>CCmdTarget</b> class",2,1
			.InsertItem 3,"<b>CWnd</b> class",3,2
			.InsertItem 6,"<bgcolor=10A0E0><fgcolor=F0F0F0>S y n c</fgcolor>",1,1
			.AddItem 4,"Exceptions",1
			.InsertItem 7,"<b>System</b> Exceptions",2,4
			.AddItem 5,"File Services",2
			.ExpandAll 
		End With
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
482
How can I look for items that includes the typed characters in a drop down list editor

With Grid1
	With .Columns.Add("DropDown").Editor
		.Option(exAutoSearch) = 1
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
481
How can I keep the selection background color while editor is visible

With Grid1
	.SelBackColor = RGB(255,0,0)
	With .Columns.Add("DropDown").Editor
		.Option(exKeepSelBackColor) = True
		.EditType = DropDownListType
		.AddItem 1,"First item"
		.AddItem 2,"Second item"
		.AddItem 3,"Third item"
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
480
How can I select from a drop down list the editor, when the user starts typing in the editor, while it is closed and focused

With Grid1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown").Editor
		.Option(exAutoDropDownList) = 1
		.EditType = DropDownListType
		.AddItem 1,"First item",1
		.AddItem 2,"Second item",3
		.AddItem 3,"Third item",2
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
479
How can I automatically drop down the list editor, when the user starts typing in the editor

With Grid1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown").Editor
		.Option(exAutoDropDownList) = -1
		.EditType = DropDownListType
		.AddItem 1,"First item",1
		.AddItem 2,"Second item",3
		.AddItem 3,"Third item",2
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
478
How can I add a Font editor

With Grid1
	.Columns.Add("Font").Editor.EditType = FontType
	.Items.AddItem "Tahoma"
End With
477
How can I change the visual appearance for the buttons in the calculator editor

With Grid1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = CalculatorType
		.Option(exCalcPictureUp) = Grid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)")
		.Option(exCalcPictureDown) = Grid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\auction.gif`)")
	End With
	.Items.AddItem 10
End With
476
How can I customize the caption of buttons in the calculator editor

With Grid1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = CalculatorType
		.Option(exCalcButtons) = "0;1;2;3;4;5;6;7;8;9;<b>+</b>;<fgcolor=FF0000>=</fgcolor>"
	End With
	.Items.AddItem 10
End With
475
How can I customize the caption of buttons in the calculator editor

With Grid1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = CalculatorType
		.Option(exCalcButtons) = "0;1;2;3;4;5;6;7;8;9"
	End With
	.Items.AddItem 10
End With
474
How can I specify the width and height of the buttons in the calculator editor

With Grid1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = CalculatorType
		.Option(exCalcButtonWidth) = 32
		.Option(exCalcButtonHeight) = 32
	End With
	.Items.AddItem 10
End With
473
How can I change the "Cannot divide by zero" message that shows in the calculator editor

With Grid1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = CalculatorType
		.Option(exCalcCannotDivideByZero) = "Divizion by zero"
	End With
	.Items.AddItem 10
End With
472
How can I enable or disable executing operations while the calculator editor is focused and closed

With Grid1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = CalculatorType
		.Option(exCalcExecuteKeys) = False
	End With
	.Items.AddItem 10
End With
471
How can I add a calculator editor

With Grid1
	.Columns.Add("Slider").Editor.EditType = CalculatorType
	.Items.AddItem 10
End With
470
How can I edit a number between a range or interval

With Grid1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = SliderType
		.Numeric = exInteger
		.Option(exSpinStep) = 0
		.Option(exSliderWidth) = 0
		.Option(exSliderMin) = 5
		.Option(exSliderMax) = 15
	End With
	.Items.AddItem 10
End With
469
How can I hide or show the spin in the slider or track bar editor

With Grid1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = SliderType
		.Option(exSpinStep) = 0
	End With
	.Items.AddItem 10
End With
468
How can I add a slider or track bar editor, with a fixed size

With Grid1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = SliderType
		.Option(exSliderWidth) = 64
	End With
	.Items.AddItem 10
End With
467
How can I add a slider or track bar editor, so it covers half of the cell

With Grid1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = SliderType
		.Option(exSliderWidth) = -50
	End With
	.Items.AddItem 10
End With
466
How can I add a slider or track bar editor, so it covers the full cell

With Grid1
	Set var_Editor = .Columns.Add("Slider").Editor
	With var_Editor
		.EditType = SliderType
		.Option(exSliderWidth) = -100
	End With
	.Items.AddItem 10
End With
465
How can I add a slider or track bar editor within a range or interval of numbers

With Grid1
	Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	With var_Editor
		.EditType = SliderType
		.Numeric = exInteger
		.Option(exSliderMin) = 5
		.Option(exSliderMax) = 15
	End With
	.Items.AddItem 10
End With
464
How can I add a slider or track bar editor within a range or interval of float numbers

With Grid1
	Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	With var_Editor
		.EditType = SliderType
		.Numeric = exFloat
		.Option(exSliderMin) = 0
		.Option(exSliderMax) = 1
		.Option(exSpinStep) = "0.01"
		.Option(exSliderStep) = "0.01"
	End With
	.Items.AddItem "0.3"
End With
463
How can I add a spin editor within a range or interval of float numbers

With Grid1
	Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	With var_Editor
		.EditType = SliderType
		.Numeric = exFloat
		.Option(exSliderWidth) = 0
		.Option(exSliderMin) = 0
		.Option(exSliderMax) = 1
		.Option(exSpinStep) = "0.01"
	End With
	.Items.AddItem "0.3"
End With
462
How can I add a spin editor within a range or interval of numbers

With Grid1
	Set var_Editor = .Columns.Add("Spin from 5 to 15").Editor
	With var_Editor
		.EditType = SliderType
		.Numeric = exInteger
		.Option(exSliderWidth) = 0
		.Option(exSliderMin) = 5
		.Option(exSliderMax) = 15
	End With
	.Items.AddItem 10
End With
461
How can I add a slider or track bar editor

With Grid1
	.Columns.Add("Slider").Editor.EditType = SliderType
	.Items.AddItem 10
End With
460
I have check box column, but the check-boxes looks disabled. What can I do

With Grid1
	Set var_Editor = .Columns.Add("Check").Editor
	With var_Editor
		.EditType = CheckValueType
		.Option(exCheckValue2) = 1
	End With
	With .Items
		.AddItem False
		.AddItem True
		.AddItem False
	End With
End With
459
How do I add check box column, so the cell value is changed as I click the cells

With Grid1
	.MarkSearchColumn = False
	With .Columns.Add("C")
		.Width = 18
		.AllowSizing = False
		With .Editor
			.EditType = CheckValueType
			.Option(exCheckValue2) = 1
		End With
	End With
	.Columns.Add "Text"
	With .Items
		.CellValue(.AddItem(False),1) = "Check 1"
		.CellValue(.AddItem(True),1) = "Check 2"
		.CellValue(.AddItem(False),1) = "Check 3"
	End With
End With
458
How do I add check box column, so the cell value is changed as I click the cells

With Grid1
	.Columns.Add("Check").Editor.EditType = CheckValueType
	With .Items
		.AddItem False
		.AddItem True
		.AddItem False
	End With
End With
457
How do I disable adding new lines using the ENTER key in a memo or a multiple lines edit control

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoDropDownType
		.Option(exMemoDropDownAcceptReturn) = False
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
456
How do I add a vertical scroll bar for a memo or a multiple lines edit control

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoDropDownType
		.Option(exMemoVScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
455
How do I add a horizontal scroll bar for a memo or a multiple lines edit control

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoDropDownType
		.Option(exMemoHScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
454
How can I specify the width or the height for a drop down memo or a multiple lines edit control

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoDropDownType
		.Option(exMemoDropDownWidth) = 256
		.Option(exMemoDropDownHeight) = 64
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
453
How do I add a drop down memo or a multiple lines edit control

With Grid1
	.Columns.Add("Edit").Editor.EditType = MemoDropDownType
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
452
How do I add a color list editor with my own or custom colors

With Grid1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorListType
		.Option(exColorListShowName) = True
		.ClearItems 
		.AddItem 255,"Red Color"
		.AddItem 16711680,"Blue Color"
		.AddItem 65280,"Green Color"
	End With
	.Items.AddItem 255
End With
451
How do I add a color list editor with my own or custom colors

With Grid1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorListType
		.ClearItems 
		.AddItem 255,"Red Color"
		.AddItem 16711680,"Blue Color"
		.AddItem 65280,"Green Color"
	End With
	.Items.AddItem 255
End With
450
How can I show the color's name in a color list editor

With Grid1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorListType
		.Option(exColorListShowName) = True
	End With
	.Items.AddItem 255
End With
449
How do I add a color list editor

With Grid1
	.Columns.Add("Color").Editor.EditType = ColorListType
	.Items.AddItem 255
End With
448
How can I access my own custom or ActiveX editor

With Grid1
	.DrawGridLines = exAllLines
	.DefaultItemHeight = 128
	With .Columns.Add("DropDown").Editor
		.EditType = UserEditorType
		.UserEditor "MSCAL.Calendar",""
		With .UserEditorObject
			.BackColor = RGB(255,255,255)
			.GridCellEffect = 0
			.ShowTitle = False
			.ShowDateSelectors = False
		End With
	End With
	With .Items
		.AddItem "MSCal.Calendar"
		.AddItem "MSCal.Calendar"
	End With
End With
447
How can I add my own custom or ActiveX editor

With Grid1
	.DrawGridLines = exAllLines
	.DefaultItemHeight = 128
	With .Columns.Add("DropDown").Editor
		.EditType = UserEditorType
		.UserEditor "MSCAL.Calendar",""
	End With
	With .Items
		.AddItem "MSCal.Calendar"
		.AddItem "MSCal.Calendar"
	End With
End With
446
How can I add a hyperlink editor

With Grid1
	.Columns.Add("Shell.Execute").Editor.EditType = LinkEditType
	.Items.AddItem "http://www.exontrol.com"
	.Items.AddItem "c:\"
End With
445
How can I add a drop down editor, that allows only predefined values, but still being able to edit and select

With Grid1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown").Editor
		.EditType = PickEditType
		.AddItem 1,"The first item",1
		.AddItem 2,"The second item",3
		.AddItem 3,"The third item",2
	End With
	With .Items
		.AddItem "The first item"
		.AddItem "The third item"
	End With
End With
444
How can I show or hide the rectangle arround progress bar editor

With Grid1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	Set var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = ProgressBarType
		.Option(exProgressBarMarkTicker) = False
	End With
	.Items.AddItem 33
End With
443
How can I hide the caption / percent in the progress bar editor

With Grid1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	Set var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = ProgressBarType
		.Option(exProgressBarAlignment) = -1
	End With
	.Items.AddItem 33
End With
442
How can I align the caption in the center of the progress bar editor

With Grid1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	Set var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = ProgressBarType
		.Option(exProgressBarAlignment) = 1
	End With
	.Items.AddItem 33
End With
441
How can I align the caption to the right in the progress bar editor

With Grid1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	Set var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = ProgressBarType
		.Option(exProgressBarAlignment) = 2
	End With
	.Items.AddItem 33
End With
440
How can I change the background color for a progress bar editor

With Grid1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	Set var_Editor = .Columns.Add("Progress").Editor
	With var_Editor
		.EditType = ProgressBarType
		.Option(exProgressBarBackColor) = 255
	End With
	.Items.AddItem 33
End With
439
How can I add a progress bar editor

With Grid1
	.SelForeColor = RGB(0,0,0)
	.SelBackColor = RGB(128,255,255)
	.Columns.Add("Progress").Editor.EditType = ProgressBarType
	.Items.AddItem 33
End With
438
How can I add a button editor

With Grid1
	.Columns.Add("Button").Editor.EditType = ButtonType
	.Items.AddItem "Just a text"
End With
437
How can I show or hide the type of the OLE Object for Photo or a Picture editor

With Grid1
	.ColumnAutoResize = False
	With .Columns.Add("Photo")
		.Width = 74
		With .Editor
			.EditType = PictureType
			.Option(exShowPictureType) = False
		End With
	End With
	With .Items
		h = .AddItem()
		.CellValue(h,0) = Grid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
		.ItemHeight(h) = 64
	End With
End With
436
How can I add a Photo or a Picture editor

With Grid1
	.Columns.Add("Photo").Editor.EditType = PictureType
	With .Items
		h = .AddItem()
		.CellValue(h,0) = Grid1.ExecuteTemplate("loadpicture(`c:\exontrol\images\sample.bmp`)")
		.ItemHeight(h) = 64
	End With
End With
435
How can I hide or show the "System" page in the color editor

With Grid1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorType
		.Option(exColorShowSystem) = False
	End With
	.Items.AddItem 255
End With
434
How can I hide or show the "Palette" page in the color editor

With Grid1
	Set var_Editor = .Columns.Add("Color").Editor
	With var_Editor
		.EditType = ColorType
		.Option(exColorShowPalette) = False
	End With
	.Items.AddItem 255
End With
433
How do I add a color editor

With Grid1
	.Columns.Add("Color").Editor.EditType = ColorType
	.Items.AddItem 255
End With
432
How do I change the masking character

With Grid1
	Set var_Editor = .Columns.Add("Mask").Editor
	With var_Editor
		.EditType = MaskType
		.Mask = "###"
		.MaskChar = 48
	End With
	.Items.AddItem ""
End With
431
How do I mask an IP

With Grid1
	Set var_Editor = .Columns.Add("IP").Editor
	With var_Editor
		.EditType = MaskType
		.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
	End With
	.Items.AddItem "1.2.3.4"
End With
430
How do I add a mask editor

With Grid1
	Set var_Editor = .Columns.Add("Mask").Editor
	With var_Editor
		.EditType = MaskType
		.Mask = "{0,255}\.{0,255}\.{0,255}\.{0,255}"
	End With
	.Items.AddItem "1.2.3.4"
End With
429
How to show or hide the week numbers header in a drop down date picker calendar editor

With Grid1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateWeeksHeader) = True
	End With
	.Items.AddItem "Today"
End With
428
How do I show or hide the bottom scroll bar in the drop down date picker calendar editor

With Grid1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateShowScroll) = False
	End With
	.Items.AddItem "Today"
End With
427
How do highlight the "Today" date is the drop down date picker calendar editor

With Grid1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateMarkToday) = True
	End With
	.Items.AddItem "Today"
End With
426
How do I show or hide the "Today" button is the drop down date picker calendar editor

With Grid1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateShowTodayButton) = False
	End With
	.Items.AddItem "Today"
End With
425
How to specify the first day of the week in the drop down date picker calendar editor

With Grid1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateFirstWeekDay) = 1
	End With
	.Items.AddItem "Today"
End With
424
How to specifies the shortcut for the weekdays to be displayed in the drop down date picker calendar editor

With Grid1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateWeekDays) = "Du Lu Ma Mi Jo Vi Si"
	End With
	.Items.AddItem "Today"
End With
423
How can I change the name of the months in the drop down date picker calendar editor

With Grid1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateMonths) = "Janvier Février Mars Avril Mai Juin Juillet Août Septembre Octobre Novembre Décembre"
	End With
	.Items.AddItem "Today"
End With
422
Can I change the "Today" caption being displayed in the drop down date picker calendar editor

With Grid1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateTodayCaption) = "Azi"
	End With
	.Items.AddItem "Today"
End With
421
How can allow empty date to drop down date picker control or a calendar control

With Grid1
	Set var_Editor = .Columns.Add("Date").Editor
	With var_Editor
		.EditType = DateType
		.Option(exDateAllowNullDate) = True
	End With
	With .Items
		.AddItem "Today"
		.AddItem ""
		.AddItem "Today"
	End With
End With
420
How can I a drop down date picker control or a calendar control

With Grid1
	.Columns.Add("Date").Editor.EditType = DateType
	With .Items
		.AddItem "Today"
	End With
End With
419
How can I have an OR combination of my bit values, something like a check-box list editor

With Grid1
	With .Columns.Add("CkeckList")
		.Def(exCellValueFormat) = 1
		With .Editor
			.EditType = CheckListType
			.AddItem 1,"Bit <b>1</b>"
			.AddItem 2,"Bit <b>2</b>"
			.AddItem 4,"Bit <b>3</b>"
			.AddItem 8,"Bit <b>4</b>"
			.AddItem 16,"Bit <b>5</b>"
			.AddItem 32,"Bit <b>6</b>"
			.AddItem 64,"Bit <b>7</b>"
			.AddItem 128,"Bit <b>8</b>"
		End With
	End With
	With .Items
		.AddItem 112
		.AddItem 2
	End With
End With
418
How do I stop resizing the memo or a multiple lines edit control, while the user types

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoType
		.Option(exMemoAutoSize) = False
		.Option(exMemoHScrollBar) = True
		.Option(exMemoVScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
417
How do I add a horizontal scroll bar for a memo or a multiple lines edit control

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoType
		.Option(exMemoHScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
416
How do I add a vertical scroll bar for a memo or a multiple lines edit control

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = MemoType
		.Option(exMemoVScrollBar) = True
	End With
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines.This is a long text that should break th" & _
"e line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
415
How do I add a memo or a multiple lines edit control

With Grid1
	.Columns.Add("Edit").Editor.EditType = MemoType
	With .Items
		.CellSingleLine(.AddItem("This is a long text that should break the line, and get it displayed on multiple lines."),0) = exCaptionWordWrap
	End With
End With
414
How to specify the proposed change when the user clicks a spin control.

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = SpinType
		.Numeric = exInteger
		.Option(exSpinStep) = 10
	End With
	With .Items
		.AddItem 0
		.AddItem 10
		.AddItem 20
	End With
End With
413
How do I add a spin editor that allows only integer values

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = SpinType
		.Numeric = exInteger
	End With
	With .Items
		.AddItem 0
		.AddItem 1
		.AddItem 2
	End With
End With
412
How do I add a spin editor

With Grid1
	.Columns.Add("Edit").Editor.EditType = SpinType
	With .Items
		.AddItem 0
		.AddItem 1
		.AddItem 2
	End With
End With
411
How do I specify in a drop down list editor, that I do not want to have predefined icon

With Grid1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"The first item",1
		.AddItem 2,"The second item",3
		.AddItem 3,"The third item",2
		.Option(exDropDownImage) = False
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
410
How do I add a drop down editor, that allows only predefined values

With Grid1
	.Images "gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTq" & _
"lVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m" & _
"0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/y" & _
"NAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA="
	With .Columns.Add("DropDown").Editor
		.EditType = DropDownListType
		.AddItem 1,"The first item",1
		.AddItem 2,"The second item",3
		.AddItem 3,"The third item",2
	End With
	With .Items
		.AddItem 1
		.AddItem 2
	End With
End With
409
How to allow the editor to work on insert or overtype mode

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EditType
		.Option(exEditAllowOverType) = True
		.Option(exEditOverType) = True
	End With
	With .Items
		.AddItem "000"
		.AddItem "111"
		.AddItem "222"
	End With
End With
408
How to set foreground color for a locked, or read only edit control

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EditType
		.Locked = True
		.Option(exEditLockedForeColor) = 8421504
	End With
	With .Items
		.AddItem "000"
		.AddItem "111"
		.AddItem "222"
	End With
End With
407
How to set background color for a locked, or read only edit control

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EditType
		.Locked = True
		.Option(exEditLockedBackColor) = 8421504
	End With
	With .Items
		.AddItem "000"
		.AddItem "111"
		.AddItem "222"
	End With
End With
406
How to set the number of characters selected, when an EditType editor is opened

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EditType
		.Option(exEditSelLength) = 1
	End With
	With .Items
		.AddItem "000"
		.AddItem "111"
		.AddItem "222"
	End With
End With
405
How to set the starting point of text selected, when an EditType editor is opened

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EditType
		.Option(exEditSelStart) = 1
		.Option(exEditSelLength) = 1
	End With
	With .Items
		.AddItem "000"
		.AddItem "111"
		.AddItem "222"
	End With
End With
404
How to specifiy the symbol that indicates the decimal values while editing a floating point number

With Grid1
	.BeginUpdate 
	With .Columns.Add("Float")
		.FormatColumn = "len(value) ? (round(value) = value ? value : value format `|,|0`) : ``"
		With .Editor
			.EditType = EditType
			.Numeric = exFloatInteger
			.Option(exEditDecimalSymbol) = 44
		End With
	End With
	With .Items
		.AddItem 0.12
		.AddItem 1
		.AddItem 2.45
	End With
	.EndUpdate 
End With
403
How can I edit a float number

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EditType
		.Numeric = exFloat
	End With
	With .Items
		.AddItem 0
		.AddItem 1
		.AddItem 2
	End With
End With
402
How can I edit a number

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EditType
		.Numeric = exInteger
	End With
	With .Items
		.AddItem 0
		.AddItem 1
		.AddItem 2
	End With
End With
401
How do I limit the length of the text that the user may enter into an edit control

With Grid1
	Set var_Editor = .Columns.Add("Edit").Editor
	With var_Editor
		.EditType = EditType
		.Option(exEditLimitText) = 1
	End With
	With .Items
		.AddItem 0
		.AddItem 1
		.AddItem 2
	End With
End With